home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM B4 / PD-ROM B4.iso / Utilities / Text and Speech / Alpha 5.3 / Tcl / ElectricAlias / electricAlias.tcl
Encoding:
Text File  |  1993-02-02  |  23.8 KB  |  772 lines  |  [TEXT/ALFA]
  1. # FILE: electricAlias.tcl
  2. #
  3. # LAST UPDATE: 01/23/93 9:11:39 PM
  4. #
  5. # This file contains the following TCL procedures:
  6. #
  7. #   electricAlias-version   -- returns the current version of electricAlias
  8. #   electricAlias-help      -- opens 'electricAlias help' read-only
  9. #   electricAlias-on        -- turns on (enables) electricAlias-insert
  10. #   electricAlias-off       -- turns off (disables) electricAlias-insert
  11. #   electricAlias-mode      -- set/list current electricAlias mode
  12. #   electricAlias-def       -- creates an electricAlias definition
  13. #   electricAlias-var       -- creates an electricAlias variable
  14. #   electricAlias-exists    -- returns true/false 
  15. #   electricAlias-list      -- returns a list of electricAlias definitions
  16. #   electricAlias-names     -- returns a list of active electricAliases
  17. #   electricAlias-idefine   -- interactive define
  18. #   electricAlias-iundefine -- interactive undefine
  19. #   electricAlias-removeall -- removes all electricAlias definitions
  20. #   electricAlias-undefine  -- removes an electricAlias definition
  21. #   electricAlias-insert    -- on-the-fly template insertion (the real guts of this thing) 
  22. #   electricAlias           -- for compatibility with old version
  23. #   getAlias                -- returns a specific current alias definition
  24. #   nextStop                -- finds the next template stop
  25. #   prevStop                -- finds the previous template stop
  26. #   askalias                -- prompts the user for a value to set an alias variable
  27. #   changeMode              -- new version to enable electricAlias (renames old
  28. #                              version to 'original-changeMode')
  29. #
  30. # 'electricAlias-insert' (bound to TAB) provides automatic template/aliasing on the fly.
  31. #
  32. #    For documentation, see 'electricAlias help'. For examples, see 'aliases'. 
  33. #
  34. #    To use, simply place this file place in a folder named $HOME:Tcl:electricAlias:
  35. #    and add 'source $HOME:Tcl:electricAlias:electricAlias.tcl' to AlphaBits.tcl.
  36. #    Also create a folder named $HOME:TCL:electricAlias:Aliases and make sure to place
  37. #    at least a file named 'Aliases' in it with your default aliases.
  38. #    If you wish to use the language extensions feature, place respective
  39. #    files 'Aliases.Tcl', 'Aliases.C', etc.. there as well.
  40. #
  41. # IMPORTANT NOTE
  42. #   *********************************************************************
  43. #   * When changing to a mode for the first time in an Alpha session    *
  44. #   * (e.g. editing a C program), there may be a noticable delay as the *
  45. #   * appropriate aliases are loaded.  This is done rather than loading *
  46. #   * everything at startup to save memory and startup time.  This only *
  47. #   * occurs once per session per mode.                                 *
  48. #   *********************************************************************
  49. #
  50. #
  51. # SEE ALSO unknown.tcl, date.tcl, update.tcl, number.tcl
  52. #
  53. ################################################################################
  54.  
  55. # COPYRIGHT:
  56. #
  57. #    Copyright © 1992,1993 by David C. Black
  58. #    All rights reserved.
  59. #
  60. #    Redistribution and use in source and binary forms are permitted
  61. #    provided that the above copyright notice and this paragraph are
  62. #    duplicated in all such forms and that any documentation,
  63. #    advertising materials, and other materials related to such
  64. #    distribution and use acknowledge that the software was developed
  65. #    by David C. Black.
  66. #
  67. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  68. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  69. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  70. #
  71. ################################################################################
  72.  
  73. # AUTHOR
  74. #
  75. #    David C. Black
  76. #    Internet: black@mpd.tandem.com (preferred)
  77. #    GEnie:    D.C.Black
  78. #    USnail:   6217 John Chisum Lane, Austin, TX 78749
  79. #
  80. ################################################################################
  81.  
  82. # HISTORY
  83. #                  
  84. # modified who rev reason
  85. # -------- --- --- ------ 
  86. # 01/23/93 DCB 1.7 Changed default locations
  87. #                  Split electricAlias into multiple specialized proc's
  88. # 01/06/93 DCB 1.6 Removed electricEnter, date, update, number to
  89. #                  separate .tcl files
  90. #                  Simplified installation
  91. #                  Added weekday, month, day, year to date proc
  92. #                  Fixed electricEnter & §«TCL_COMMAND» to work at global level
  93. #                  Changed bind to TAB
  94. #                  Added electricAlias help sub-command
  95. #                  'delete' now requires MODE
  96. #                  'add' renamed to 'interactive-add'
  97. #                  'remove' renamed to 'interactive-remove'
  98. #                  'list','names' & 'removeall' now allow restriction to a particular mode
  99. #                  'define' & 'variable' now return definition if not provided
  100. #                  Added askalias proc for use in definitions
  101. #                  Added getAlias proc
  102. #                  •-templates now require that they also be at end of line
  103. #                  Corrected \b\b && ^\b substitutions
  104. #                  Modified temporary marks to be window specific
  105. #                  Added 'update' proc
  106. # 11/23/92 DCB 1.5 Included definition of 'nextStop' proc
  107. #                  Changed 'stop's to 'st•p's to avoid collisions with permanent marks
  108. #                  aliasmode is now forced to lowercase
  109. #                  'electricAlias mode' without arg now 'return's the mode
  110. #                  Added 'electricAlias removeall' command
  111. #                  Fixed 'electricAlias list' bug with variables
  112. #                  Nil-mode alias variable now treated as global
  113. #                  Reversed ordering of HISTORY
  114. # 11/18/92 DCB 1.4 'electricAlias mode' now uses/require MODE argument
  115. #                  Modified 'date' proc
  116. # 11/17/92 DCB 1.3 Fixed nasty missing \] in §«TCL_COMMAND»
  117. # 11/16/92 DCB 1.2 Prevent • from appearing in variable mode definitions
  118. #                  §«TCL_COMMAND» now does each invocation separately
  119. #                  §«TCL_COMMAND» now uses [eval]
  120. #                  One minor typo
  121. #                  Non-• templates are now recognized at the beginning of a line
  122. #                  electricEnter now inserts in the correct window
  123. #                  Documented 'date' proc & added 'number' proc (useful in aliases)
  124. #                  Minor comment editing/formatting
  125. # 11/15/92 DCB 1.1 Added {version} command
  126. #                  Code to sub \n for \r in {define} and {variable}
  127. #                  Limit variable substitutions to 99 per template (avoid infinite)
  128. #                  Limit • mode templates to non-nil major modes
  129. #                  Added electric commands §«TCL_COMMAND»
  130. # 11/14/92 DCB 1.0 Original
  131. ################################################################################
  132.  
  133. # DESIGN NOTES
  134. # 
  135. # electricAlias uses a single array ALIAS to store all of its data. Aliases 
  136. # themselves are stored as ALIAS(mode,name). This means that commas are not 
  137. # allowed in mode names (not a severe restriction). State information is 
  138. # stored in ALIAS(name). 
  139. # 
  140. # To make it easier to undo an unintentional template, insertText is called
  141. # once with the normal insertion of a space.  If a template succeeds, then the
  142. # matched word is replaced.  To get back to the plain insertion, just UNDO
  143. # (CMD-Z) twice!  To undo all the way you need one more undo.
  144. #
  145. # Also, if text is selected then the template checking is always abandoned
  146. # in favor of a real space.
  147. # 
  148. # WARNING: If binding to another key is desired, be sure to change the
  149. # definition of $bindKey appropriately.
  150. #
  151. # Use of the bullet (•) to flag stops was arbitrary to some extent.  It had
  152. # to be something easy to use, but not a normal part of programming languages.
  153. # It also needed to be something that would not need special escaping in a
  154. # regular expression.  The same is true for alias variables.
  155. #
  156. ################################################################################
  157.  
  158. # IDEA/REQUEST/TODO
  159. # 
  160. # electricFunc -or- How to recognize procedural definitions on the fly so 
  161. # that later instantiations/calls can automatically insert the correct
  162. # template?  This should be extensible to several languages.
  163. #
  164. # For example in C, I can define 'int max(int a,int b) { return a>b ? a : b }'.
  165. # Later when I type 'x = max(', I would get 'x = max(a,b)' with 'a,b' 
  166. # automatically selected.
  167. # 
  168. # In Verilog, this is complicated by name parameters. For example a definition:
  169. # 'module myAnd (y,a,b); input a,b; output y; assign y = a & b; endmodule'
  170. # should be instantiated with 'myAnd THIS1(.a(a_wire),.b(b_wire));'.
  171. # 
  172. # The justification for the entire electricFunc concept is that frequently
  173. # modules may have literally tens of connections and leaving one out or
  174. # misnaming can be disasterous. The same happens occasionally in C or you
  175. # forget the names of the parameters (more likely).
  176. #
  177. ################################################################################
  178.  
  179. #message "Loading electric.tcl"
  180.  
  181. # Define global array for state/alias data
  182. if {[info exists ALIAS(active)] == 0} {
  183.     if {[info exists ALIAS] == 1} {
  184.         # Its scalar and we need an array
  185.         unset ALIAS
  186.     }
  187.     set ALIAS(active) 1
  188.     set ALIAS(mode)   "tcl"
  189.     set ALIAS(modes)  {tcl,}
  190. }
  191. #
  192. ################################################################################
  193.  
  194. proc electricAlias-version {} {
  195.     return "electricAlias version 1.7"
  196. }
  197. #endproc electricAlias-version
  198. ##############################################################################
  199.  
  200. proc electricAlias-help {} {
  201.     set helpDirs {$HOME:Help $HOME}
  202.     set helpFile "electricAlias Help"
  203.     foreach helpDir $helpDirs{
  204.         if {[file exists $helpDir:$helpFile} {
  205.             edit -r -m $helpDir:$helpFile
  206.             return
  207.         }
  208.     }
  209. }
  210. #endproc electricAlias-help
  211. ##############################################################################
  212.  
  213. proc electricAlias-on {} {
  214.     global ALIAS
  215.     set ALIAS(active) 1
  216. }
  217. #endproc electricAlias-on
  218. ##############################################################################
  219.  
  220. proc electricAlias-off {} {
  221.     global ALIAS
  222.     set ALIAS(active) 0
  223. }
  224. #endproc electricAlias-off
  225. ##############################################################################
  226.  
  227. proc electricAlias-mode {args} {
  228.     global ALIAS
  229.     set argc [llength $args]
  230.     set aliasmode $ALIAS(mode)
  231.     if {$argc > 1} {
  232.         error "Usage: electricAlias-mode ?NAME?"
  233.     }
  234.     if {$argc == 0} {
  235.         return $aliasmode
  236.     }
  237.     set aliasmode [string tolower [lindex $args 0]]
  238.     if {[regexp {[,]} $aliasmode]} {
  239.         error "Alias modes may not include commas"
  240.     }
  241.     set ALIAS(active) 1
  242.     regsub {^•} "$aliasmode" "" aliasmode
  243.     set ALIAS(mode) "$aliasmode"
  244.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  245.         lappend ALIAS(modes) $aliasmode,
  246.     }
  247.     #message "Aliasmode $aliasmode"    
  248. }
  249. #endproc electricAlias-mode
  250. ##############################################################################
  251.  
  252. proc electricAlias-def {args} {
  253.     global ALIAS
  254.     set aliasmode [string tolower [lindex $args 0]]
  255.     set argc [llength $args]
  256.     if {$argc < 2 || $argc > 3} {
  257.         error "Usage: electricAlias-def MODE NAME ?DEFINITION?"
  258.     }
  259.     set aliasmode [string tolower [lindex $args 0]]
  260.     if {[regexp {[,]} $aliasmode]} {
  261.         error "Alias modes may not include commas"
  262.     }
  263.     set name      [lindex $args 1]
  264.     if {$argc == 2} {
  265.         return [getAlias $aliasmode $name]
  266.     }
  267.     set defn      [lindex $args 2]
  268.     regsub -all "\n" $defn "\r" defn
  269.     set ALIAS($aliasmode,$name) $defn
  270.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  271.         lappend ALIAS(modes) $aliasmode,
  272.     }
  273. }
  274. #endproc electricAlias-def
  275. ##############################################################################
  276.  
  277. proc electricAlias-var {args} {
  278.     global ALIAS
  279.     set aliasmode [string tolower [lindex $args 0]]
  280.     set argc [llength $args]
  281.     if {$argc < 2 || $argc > 3} {
  282.         error "Usage: electricAlias-var MODE NAME ?DEFINITION?"
  283.     }
  284.     set aliasmode [string tolower [lindex $args 0]]
  285.     if {[regexp {[,]} $aliasmode]} {
  286.         error "Alias modes may not include commas"
  287.     }
  288.     set name      [lindex $args 1]
  289.     if {$argc == 2} {
  290.         return [getAlias $aliasmode $name]
  291.     }
  292.     set defn      [lindex $args 2]
  293.     regsub -all "\n" $defn "\r" defn
  294.     set ALIAS($aliasmode,§\{$name\}) $defn
  295.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  296.         lappend ALIAS(modes) $aliasmode,
  297.     }
  298. }
  299. #endproc electricAlias-var
  300. ##############################################################################
  301.  
  302. proc electricAlias-exists {args} {
  303.     global ALIAS
  304.     set argc [llength $args]
  305.     if {$argc != 2} {
  306.         error "Usage: electricAlias-exists MODE NAME"
  307.     }
  308.     set aliasmode [string tolower [lindex $args 0]]
  309.     set name [lindex $args 1]
  310.     return [info exists ALIAS($aliasmode,$name)]
  311. }
  312. #endproc electricAlias-exists
  313. ##############################################################################
  314.  
  315. proc electricAlias-list {args} {
  316.     global ALIAS
  317.     set argc [llength $args]
  318.     set aliasmode $ALIAS(mode)
  319.     if {$argc > 1} {
  320.         error "Usage: electricAlias-list ?MODE?"
  321.     }
  322.     if {$argc == 1} {
  323.         set theMode [string tolower [lindex $args 0]]
  324.         if {[regexp {[,]} $theMode]} {
  325.             error "Alias modes may not include commas"
  326.         }
  327.     } else {
  328.         set theMode ""
  329.     }
  330.     set list {}
  331.     set count 1
  332.     foreach name [array names ALIAS] {
  333.         incr count
  334.         set index [split $name ","]
  335.         if {[llength $index] >= 2} {
  336.             set name [join [lrange $index 1 end] ","]
  337.             set aliasmode [lindex $index 0]
  338.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "•$theMode"} {
  339.                 lappend list [getAlias $aliasmode $name]
  340.             }
  341.         }
  342.     }
  343.     #endforeach
  344.     return [join [lsort $list] "\r"]
  345. }
  346. #endproc electricAlias-list
  347. ##############################################################################
  348.  
  349. proc electricAlias-names {args} {
  350.     global ALIAS
  351.     set argc [llength $args]
  352.     set aliasmode $ALIAS(mode)
  353.     if {$argc > 1} {
  354.         error "Usage: electricAlias-names ?MODE?"
  355.     }
  356.     if {$argc == 1} {
  357.         set theMode [string tolower [lindex $args 0]]
  358.         if {[regexp {[,]} $theMode]} {
  359.             error "Alias modes may not include commas"
  360.         }
  361.     } else {
  362.         set theMode ""
  363.     }
  364.     set list {}
  365.     foreach name [array names ALIAS] {
  366.         set index [split $name ","]
  367.         if {[llength $index] < 2} {
  368.             continue
  369.         }
  370.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "•$theMode"} {
  371.             lappend list "$name"
  372.         }
  373.     }
  374.     #endforeach
  375.     return [lsort $list]
  376. }
  377. #endproc electricAlias-names
  378. ##############################################################################
  379.  
  380. proc electricAlias-idefine {} {
  381.     global ALIAS
  382.     set aliasmode $ALIAS(mode)
  383.     set list [lsort $ALIAS(modes)]
  384.     catch {set name [eval [concat {prompt "Add mode,name:" "" Modes} $list]]}
  385.     if {[info exists name] == 0} { return }
  386.     if {$name == ""} { return }
  387.     if {[string first $name ","] < 0} {
  388.         set aliasmode [string range $name 0 [expr {$ind-1}]]
  389.         set name "$aliasmode,$name"
  390.     }
  391.     if {$name == ""} { return }
  392.     if {[info exists ALIAS($name)} {
  393.         if {[askyesno "Replace existing definition?"] != "Yes"} { return }
  394.     }
  395.     set defn [prompt "Definition of \"$name\":" ""]
  396.     if {$defn == ""} { return }
  397.     set ALIAS($name) $defn
  398.     message "Defined $name"
  399. }
  400. #endproc electricAlias-idefine
  401. ##############################################################################
  402.  
  403. proc electricAlias-iundefine {} {
  404.     global ALIAS
  405.     set list [electricAlias-names]
  406.     catch {set name [eval [concat {prompt {Remove mode,alias:} [lindex $list 0] Alias} $list]]}
  407.     if {[info exists name]} {
  408.         if {[string first $name ","] >= 0} {
  409.             unset ALIAS($name)
  410.             message "Removed $name"
  411.             unset name
  412.         }
  413.     }
  414. }
  415. #endproc electricAlias-iundefine
  416. ##############################################################################
  417.  
  418. proc electricAlias-removeall {args} {
  419.     global ALIAS
  420.     set argc [llength $args]
  421.     set aliasmode $ALIAS(mode)
  422.     if {$argc > 1} {
  423.         error "Usage: electricAlias-removeall ?MODE?"
  424.     }
  425.     if {$argc == 1} {
  426.         set theMode [string tolower [lindex $args 0]]
  427.         if {[regexp {[,]} $theMode]} {
  428.             error "Alias modes may not include commas"
  429.         }
  430.     } else {
  431.         set theMode ""
  432.     }
  433.     foreach name [array names ALIAS] {
  434.         if {[string first "," $name] >= 0} {
  435.             set aliasmode = [lindex [split $name ","] 0]
  436.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "•$theMode"} {
  437.                 unset ALIAS($name)
  438.             }
  439.         }
  440.     }
  441.     #endforeach
  442. }
  443. #endproc electricAlias-removeall
  444. ##############################################################################
  445.  
  446. proc electricAlias-undefine {aliasmode name} {
  447.     global ALIAS
  448.     set aliasmode [string tolower $aliasmode]
  449.     if {[regexp {[,]} $aliasmode]} {
  450.         error "Alias modes may not include commas"
  451.     }
  452.     if {[info exists ALIAS($aliasmode,$name)] == 0} {
  453.         error "electricAlias does not exist!"
  454.     }
  455.     unset ALIAS($aliasmode,$name)
  456. }
  457. #endproc electricAlias-undefine
  458. ##############################################################################
  459.  
  460. proc electricAlias-insert {args} {
  461.     global ALIAS
  462.     set aliasmode $ALIAS(mode)
  463.     set bindKey "\t"
  464.     set argc [llength $args]
  465.  
  466.     if {$argc == 0} {
  467.         if {[getSelect]   != "" }  then {
  468.             replaceText [getPos] [selEnd] $bindKey
  469.             forwardChar
  470.             return
  471.         }
  472.         if {$ALIAS(active) == 0} {
  473.             insertText $bindKey
  474.             return
  475.         }
  476.         set match 0
  477.         set args [list normal]
  478.         set pos [getPos]
  479.         set bol [getText [lineStart $pos] $pos]
  480.         set eol [getText [expr {$pos}] [nextLineStart $pos]]
  481.         set modMode ""
  482.         # First token on the line?
  483.         if {! $match } {
  484.             if {[regexp {^([     ]*)([^     ]+)$} $bol all indent name]} {
  485.                 if {[regexp "^\[     \]*\[\r\n\]?\$" $eol all]} {
  486.                     set args [list insert "$indent" "$name"]
  487.                     set modMode "•"
  488.                     set match 1
  489.                 }
  490.             }
  491.         }
  492.  
  493.         # Word token?
  494.         if {! $match && [regexp {([     ]+)([^     ]+)$} "$bol" all indent name] == 1} {
  495.             set args [list insert "" "$name"]
  496.             set match 1
  497.         }
  498.  
  499.         insertText "$bindKey"
  500.     }
  501.  
  502.     set cmnd [lindex $args 0]
  503.     set args [lreplace $args 0 0]
  504.     set argc [llength $args]
  505.  
  506.     if {$cmnd == "normal"} {
  507.         return
  508.     }
  509.  
  510.     set indent [lindex $args 0]
  511.     set name [lindex $args 1]
  512.     set match 0
  513.  
  514.     # • mode template?
  515.     if {$match == 0 && $modMode == "•" && [info exists ALIAS($modMode$aliasmode,$name)] == 1} {
  516.         set defn "$ALIAS($modMode$aliasmode,$name)"
  517.         set match 1
  518.     }
  519.  
  520.     # embedded word template?
  521.     if {$match == 0 && [info exists ALIAS($aliasmode,$name)] == 1} {
  522.         set defn "$ALIAS($aliasmode,$name)"
  523.         set match 2
  524.     }
  525.  
  526.     # nil mode • definition matches everything iff non-nil aliasmode
  527.     if {$match == 0 && $modMode == "•"  && $aliasmode != "" && [info exists ALIAS(•,$name)] == 1} {
  528.         set defn "$ALIAS(•,$name)"
  529.         set match 3
  530.     }
  531.  
  532.     # nil mode matches everything
  533.     if {$match == 0 && [info exists ALIAS(,$name)] == 1} {
  534.         set defn "$ALIAS(,$name)"
  535.         set indent ""
  536.         set match 4
  537.     }
  538.  
  539.     # Next line for debug:
  540.     #message "$modMode $aliasmode $name -> $match"
  541.  
  542.     # return if no aliases found
  543.     if {$match == 0} { 
  544.         return
  545.     }
  546.  
  547.     # Perform substitutions
  548.     set limit 99
  549.     set doAnotherSubstitute 1
  550.     while {$doAnotherSubstitute} {
  551.         set doAnotherSubstitute 0
  552.         # substitute commands §«TCL_COMMAND»
  553.         while {[regexp {§«([^»]+)»} $defn all text] == 1} {
  554.             global _text
  555.             global _returnText
  556.             set _text $text
  557.             set _returnText ""
  558.             set errcode [uplevel #0 {catch $_text _returnText}]
  559.             if {$errcode != 0} {
  560.                 set _returnText "§ERROR $errcode($_text->$_returnText)"
  561.             }
  562.             regsub {§«([^»]+)»} $defn $_returnText defn
  563.             set doAnotherSubstitute 1
  564.             if {[incr limit -1] <= 0} {
  565.                 error "Too many electricAlias command substitutions"
  566.             }
  567.             unset _text
  568.             unset _returnText
  569.         }
  570.         #endwhile substitute cmds
  571.  
  572.         # substitute vars §{NAME}
  573.         while {[regexp {§\{[A-Za-z0-9_-]+\}} $defn var] == 1} {
  574.             if {[info exists ALIAS($aliasmode,$var)] == 1} {
  575.                 set repl $ALIAS($aliasmode,$var)
  576.             } else {
  577.                 # Does a global version of the variable exist?
  578.                 if {[info exists ALIAS(,$var)] == 1} {
  579.                     set repl $ALIAS(,$var)
  580.                 } else {
  581.                     set repl ""
  582.                 }
  583.             }
  584.             regsub -all $var $defn $repl defn
  585.             if {[info exists ALIAS($aliasmode,$var)] == 0 && [info exists ALIAS(,$var)] == 0} {
  586.                 alertnote "No such electricAlias variable $var"
  587.             }
  588.             set doAnotherSubstitute 1
  589.             if {[incr limit -1] <= 0} {
  590.                 alertnote "Too many electricAlias variable substitutions"
  591.             }
  592.         }
  593.         #endwhile substitute vars
  594.     }
  595.     #endwhile
  596.  
  597.     # substitute indents
  598.     regsub -all "\r" "$defn" "\r$indent" defn
  599.     set bs ""
  600.     if {[regexp "^\b+" $defn bs]} {
  601.         regsub "^\b+" "$defn" "" defn
  602.     }
  603.     while {[regsub ".\b" "$defn" "" defn]} {
  604.         ;
  605.     }
  606.     #endwhile
  607.  
  608.     # insert text and set stops
  609.     set repl "$defn"
  610.     regsub -all "•" "$repl" "" repl
  611.     set epos [getPos]
  612.     set bpos [expr {$epos - [string length "$name"] - 1}]
  613.     if {"$repl" == "$defn"} {
  614.         # Assert no stops to mark
  615.         if {$bs == "" && [regexp "\[^\n\r\t \]$" $repl] == 1} {
  616.             append repl " "
  617.         }
  618.         replaceText $bpos $epos "$repl"
  619.         goto [expr {$bpos + [string length "$repl"]}]
  620.         return
  621.     }
  622.     if {$bs != "" && $indent != ""} {
  623.         incr bpos [expr {-[string length $bs]}]
  624.     }
  625.     replaceText $bpos $epos "$repl"
  626.              global stopRing
  627.     set stopRing {}
  628.     set repl "$defn"
  629.     set win [lindex [winNames] 0]
  630.     set i 1
  631.     while {[regexp -indices "•" $repl I] == 1} {
  632.         regsub "•" "$repl" "" repl
  633.         createTMark "${win}•stop$i" [expr {$bpos + [lindex $I 0]}]
  634.         lappend stopRing "${win}•stop$i"
  635.         incr i
  636.     }
  637.     #endwhile
  638.  
  639.     gotoTMark "${win}•stop1"
  640.     bind 'j' <z> nextStop
  641.     bind 'j' <zs> prevStop
  642. }
  643. #endproc electricAlias-insert
  644.  
  645. bind '\t' electricAlias-insert
  646. ################################################################################
  647.  
  648. proc electricAlias {cmnd args} {
  649.     case {[llength $args]} {
  650.       {0} {electricAlias-$cmnd}
  651.       {1} {electricAlias-$cmnd [lindex $args 0]}
  652.       {2} {electricAlias-$cmnd [lindex $args 0] [lindex $args 1]}
  653.       {3} {electricAlias-$cmnd [lindex $args 0] [lindex $args 1] [lindex $args 2]}
  654.     }
  655.     #endcase
  656.     electricAlias-$cmnd $args
  657. }
  658. #endproc electricAlias
  659. ##############################################################################
  660.  
  661.  
  662. proc getAlias {aliasmode name} {
  663.     global ALIAS
  664.     if {![info exists ALIAS($aliasmode,$name)]} {
  665.         alertnote "getAlias: ?$aliasmode $name?"
  666.         return ""
  667.     }
  668.     set repl "$ALIAS($aliasmode,$name)"
  669.  
  670.     regsub -all "\r" "$repl" "\\r" repl
  671.     regsub -all "\n" "$repl" "\\n" repl
  672.     regsub -all "\t" "$repl" "\\t" repl
  673.     regsub -all "\b" "$repl" "\\b" repl
  674.     regsub -all {\$} "$repl" "\\\$" repl
  675.     regsub -all {\{} "$repl" "\\\{" repl
  676.     regsub -all {\}} "$repl" "\\\}" repl
  677.  
  678.     regsub -all {\$} "$name" "\\\$" name
  679.     regsub -all {\{} "$name" "\\\{" name
  680.     regsub -all {\}} "$name" "\\\}" name
  681.     regsub -all {\[} "$name" "\\\[" name
  682.     regsub -all {\]} "$name" "\\\]" name
  683.  
  684.     set cmnd "var"
  685.     if {[regexp {^§\\\{.*\}$} $name] == 0} {
  686.         set cmnd "def"
  687.         set name "\"$name\""
  688.     }
  689.     set fmt "electricAlias-%s %-8s %-10s \{%s\}"
  690.     return [format $fmt $cmnd "\"$aliasmode\"" $name $repl]
  691. }
  692. #endproc getAlias
  693. ################################################################################
  694.  
  695. proc nextStop {} {
  696.     global stopRing
  697.     set first [lindex $stopRing 0]
  698.     set stopRing [lreplace $stopRing 0 0]
  699.     lappend stopRing $first
  700.     set next [lindex $stopRing 0]
  701.     gotoTMark $next
  702.  
  703. }
  704. #endproc nextStop
  705. ################################################################################
  706.  
  707. proc prevStop {} {
  708.     global stopRing
  709.     set end [expr {[llength $stopRing] - 1}]
  710.     set last [lindex $stopRing $end]
  711.     set stopRing [lreplace $stopRing $end $end]
  712.     set stopRing [linsert $stopRing 0 $last]
  713.     gotoTMark $last
  714. }
  715. #endproc prevStop
  716. ################################################################################
  717.  
  718.  
  719. proc askalias {prompt name args} {
  720.     global mode
  721.     set argc [llength $args]
  722.     case $argc {
  723.     0 {
  724.         electricAlias var $mode $name [prompt $prompt ""]
  725.     }
  726.     1 {
  727.         set default $args
  728.         electricAlias var $mode $name [prompt $prompt $default]
  729.     }
  730.     {default} {
  731.         set default [lindex $args 0]
  732.         set title [lindex $args 1]
  733.         set list [lrange $args 2 end]
  734.         electricAlias var $mode $name [prompt $prompt $default $title $list]
  735.     }
  736.     }
  737.     return ""
  738. }
  739. #endproc askalias
  740. ################################################################################
  741.  
  742. if {![file isdirectory "$HOME:TCL:electricAlias:Aliases"]} {
  743.     mkdir $HOME:TCL:electricAlias:Aliases
  744. }
  745.  
  746. if {[file readable "$HOME:TCL:electricAlias:Aliases:Aliases"]} {
  747.     source $HOME:TCL:electricAlias:Aliases:aliases
  748. } else {
  749.     alertnote "No default file $HOME:TCL:electricAlias:Aliases:aliases"
  750. }
  751.  
  752. if {[info procs original-changeMode] != "original-changeMode"} {
  753.  
  754.     rename changeMode original-changeMode
  755.  
  756. proc changeMode {newMode} {
  757.     original-changeMode $newMode
  758.     global mode
  759.     global HOME
  760.     if {![electricAlias-exists "•$mode" "•$mode"] &&
  761.          [file readable "$HOME:TCL:electricAlias:Aliases:aliases.$mode"]} {
  762.         source "$HOME:TCL:electricAlias:Aliases:aliases.$mode"
  763.     }
  764.     electricAlias-mode "$mode"
  765. }
  766. #endproc changeMode
  767.  
  768. }
  769. #endif
  770. ################################################################################
  771.  
  772.